|
|
|
|
|
|
|
m_IconID = IDI WINLOGO
End Select
Picturel.Refresh
End Sub
Private Sub Picture1_Paint()
Dim iconhandle As Long
iconhandle = LoadIconBynum(0, m_IconID)
If iconhandle = 0 Then
MsgBox GetErrorString(Err.LastDllError)
Else
Call DrawIcon(Picturel.hdc, 0, 0, iconhandle)
End If
End Sub |
|
|
|
|
|